program plotana
  use auty
  implicit none
  integer narg
  character*512 fin, fout, t
  narg=command_argument_count()
  if(narg<2) stop "gimme fin.img fout.mtv [title]"
  call get_command_argument(1,fin)
  call get_command_argument(2,fout)
  t=fin
  if(narg>=3) call get_command_argument(3,t)
  call exit(ana2mtv(fin,fout,t))
end program plotana
